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st stora 
auORY Disk quorum ac ion routine 
REQUEST INIT = Request initialization 
ET_QONAME = Get the quorum disk name 
OPER FILE - 54 er the quorum file 
GET CBN = Get the quorum file logical block number 
ett - Validate the quorum file 
= Write the quorum file 
- si ese the quorum file 
LETE - Bay pre completion 
HECKS alculate the quorum file checksum 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE A TH ‘al F SUCH of tcine’ AND WITH THE 


® 

® e 
wu a 
® ® 
® * 
- ® 
& & 
& ® 
* INCLUS T NOTICE. 0 . 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY © 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aepoRaT ibe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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++ 
3: Facility: CSP 


Abstract: 
This module is a ‘‘client’’ thread of the CSP. It is requested by the 
quorum disk code whenever: 


- SYSINIT did not find the quorum file, —_ 
- an 1/0 error occurred when reading or writing the quorum file, 
- or the quorum file containes corrupt data. 


Enviornment: 
CSP process 


Author: 
R. Scott Hanna, CREATION DATE: 23-Aug-198_ 


Modified by: 


v04-001 DYC0001 Dennis Y. Chan 21-Nov-1984 
Added check in action routine for SS$_FORCEDERROR return 
while trying to validate quorum file and rewrite the 
file with template. 


v03-006 ADE0002 Alan D. Cle tége 25-Apr-1584 
Use SGETDVIW_S instead of SGETOVI_S with an AST since 
when an AST Ts delivered upon RO Failure indication is 
thought to be unpredictabie. 
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David Ww. Thiel ep 
XSDISK_CHANGE when CLUBST_QDNAME is filled in. 


R. Scott Hanna 03-Apr-1984 
CLOSE_FILE to only call CSPSSWAIT when the file clos 
successfully queued. 


R. Scott Hanna 21-Feb-1984 


Incorporate changes to make this algorithm a ‘‘client’’ of 
the CSP. It is now requested by the QUORUM code rather than 
) 


periodically running to check 


r work. In addition this 


routine can now create a quorum file if none exists and 
repair one that does but contains corrupt data. 
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DE0001 


change 
SP$QU0 


C 
hold 


older. 
$H0079 


Alan D. flértdos 28-F eb-1984 
name of CSPSQUORUM to CSPSQUORUM_INIT, add new 
RUM entry point which is used now only as a place 


R. Scott Hanna 10-Nov-1983 


Modify algorithm to check euet? e minutes to see if the 
a 


““connection’’ to the quorum dis 


s been lost. If so it 


does the quorum file lookup again. 
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Bo 
09 4 -SBTTL Declarations 
09 3 Define Symbols 
239 4 SATRDEF ; Attribute control block 
000 5 SCCBDEF 3; Channel control block 
8 § SCLUBDEF ; Cluster block 
0 SCLUDCBDEF ; Cluster quorum disk control blec 
00 8 SCLUQF DEF ; Cluster quorum file 
4 8 SOSCDEF : Descriptor definitions 
0 SOVIDEF ; SGETDV] item List codes 
44 91 $F IBDEF : File information block 
000 3 $F LODEF ; File ID codes 
0000 3 SIODEF ; 1/0 function codes 
0000 94 SIPLDEF : Interrupt orterity levels 
0000 95 SSBKDEF ; Attributes statistics block 
B44 38 SSSDEF 3; System service status codes 
0000 98 ; Error messages will mo longer be reported after ERROR_COUNT reaches 
0000 99 ; -ERROR_THRESHOLD. 
0000 100 
0000000A 0000 101 ERROR_THRESHOLD = 10 
0000 102 
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= CSP DISK QUORUM MODULE 
Own storage 


-SBTTL Own storage 
THREAD_ACTIVE: .BYTE 


QD_DESCR: . WORD 
LONG 
QD_NAME : -BLKB 
QD_ITMLST: .WORD 
“LONG 
“LONG 
“LONG 
QF _DESCR: ASCID 
CLUDCB_LBN: . LONG 
LOOKUP _LBN: .LONG 
CHANNEL : . LONG 
10SB: . QUAD 


ERROR_COUNT: . BYTE 
ERROR_MESSAGE: .LONG 
FIB_DESCR: -WORD 


FIB: -BLKB 
ATTRIB_BLOCK: .WORD 


STATBLK: -BLKB 
VIC: .WORD 
FPRO: .WORD 
IDENT_STRING: 


ASCII 
ASSUME 
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0 ; Thread active flag 
0 ; Quorum disk descript 
DSCSK_DTYPE_T 0 
DSCSK_CLASS_D 
QD_NAME 
64 3; Quorum disk name 
64, DVIS_FULLDEVNAM ; SGETDVI item List 
QD NAME 
QD_DESCR 
0 
/QUORUM. DAT; 1/ 3; Quorum file descriptor 
0 ; Quorum file LBN from the CLUDCB 
0 ; Quorum file LBN from file lookup 
0 : Quorum disk channel number 
0 ; 1/0 status block 
0 ; Error reported counter 
0 ; Descr addr of last error message 
F IBSK_LENGTH : FIB descriptor 
DSCSK_DTYPE_T 
Pee ek.cLASS.S 


F IBSK_LENGTH ; File information block 
ae STATOLK. ATRSC_STATBLK ; Attribute control block 
ATRSS UIC, ATRSC_UIC 

Fane ne eAIRSC FORO 


ATR$S_STATBLK ; Statistics biock 

4,1 : File owner UIC (C1,4]) 

“XFFOO ; File protection (S:RWED,O:RWED) 
/QUORUM FILE/ ; Quorum file ID string 
CLUQFSS_IDENT EQ .-IDENT_STRING 
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CLUQFS$K_BLOCKS*512 
»ASCID \%CSP-W-QFNOTFOUND, Previously existing quorum file not found\ 


-BLKB 
eASCID \RCSP-W-QFCHANGED, Quorum file location has changed\ 
-ASCID \ZCSP-E-QFOPEN, Quorum file open/create error\ 


-ASCID \SCSP=1-QFCREATED, Quorum file created\ 
eASCID \ZCSP-I-QF INIT, Quorum file initialized\ 
-ASCID \2ZCSP-E-QDASSIGN, Quorum disk assign error\ 
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cara 


-ASCID \ZCSP-E-QFRATT, Quorum file read attributes error\ 


eASCID \ZCSP-E-QFREAD, Quorum file read error\ 


168 MSSG7 
169 MSSGB: 
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\ZCSP-E-QDGETDVI, Quorum disk S$GETDVI failed\ 


eASCID \ZCSP-E-QFWRITE, Quorum file write error\ 
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vour0on CSPSQUDROM - Disk quorum action routine eee 4 Oe i0g: 58 SYSLOA.BUGSRC CSPQUORUM.MAR: 1° (4) 
729 174 .SBTTL CSPSQUORUM = Disk quorum action routine 
See 
729 158 : This routine is requested when some type of error has occured with the 
729 178 3 quorum disk. ft acknowledges the request and gets the quorum disk name 
729 179 ; and log cat b ock number from the CLUDCB. It then does a access with a 
0729 180; create modifier Q10 to the ACP. (i.e. If the quorum file does not exist 
729 = s «4181+: it creates one.) If a quorus file exists the data in the file is 
729°C ¢ 5 validated. If the quorum file contents are invalid or the quorum file 
7291 s was created, a template quorum block is written back to the file. The 
0729 184; roguees is completed by ge the logical block number, the request 
OF 2 188 ; and acknowledge bits, and the state field in the CLUDCB. 
07 ; 187 : CALLING SEQUENCE: 
07 3 189 ; JSB CSPSQUORUM 
0729 191 : INPUTS: 
0729 136 3 
$559 194 | — 
0729 195 : OUTPUT: 
0729 196; 
ges 1g tow 
0729 199 ¢sPSauORUM:: 
F8D2 CF 00 FS o7s2 200 BBCS #0, THREAD_ACTIVE,1$ ; Br if thread not active 
015A i el 201 BRW 17$ ; Thread active, ignore request 
OOFC 8F 6B 8 ¢ 50g 1$: PUSHR #*M<R2,R3,R4,R5,R6,R7> 3; Save registers 
O736 04 SCMKRNL_S REQUEST_INIT : Do the initial work 
03 33 8 74 05 BLBS RO,2$ ; Br if request necessary 
013931 0748 06 BRW 16$ 
F8B2 f sf aren b 2$: a QD_DESCR 3 po v9 have the quorum disk name? 
; Br es 
00008c6"EF 16 ars if JB GET. QDNAME : Get. ubrun dish nene 
: Br success 
51 99 AF DE O75A 1 MOVAL MS$G10,R1 : Quorum disk assign error 
00A4 = 331 oe 1? BRwW 11$ 
761 15 3$: SASSIGN_S DEVNAM = QD_DESCR,- : Assign a channel to 
4 18 = CHANNEL 3 the quorum disk 
850 €8 Q7 § 1 8LBS RO,4$ ; Br if success 
51 FEO CF oF 77 18 MOVAL MSSG5,R1 > Quorum disk assign error 
0088 pn % BRW 11$ 
eeu 4 ig ore 1 4$: JSB OPEN_FILE ; Open the quorum file 
07 50 =«6©€ 7 § BLBS ; Br if success 
51 FEAG cr DE 786 MOVAL MS§G6.R1 ; Quorum disk open/create error 
8 1 f : : GRB 11$ 
0619 BF 50 e] 7 § 5$: CMPW RO,#SS$_CREATED ; Did we create the file? 
2E 2 07 e BNEQU 8$ ; Br if not 
000009¢3" F 18 79 3 JSB ger LON ; Get the quorum file LBN 
07 50 ~«€ 79A BLBS RO,6 : Br if error 
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CSPSQUORUM = Disk quorum action routine -SEP-1984 SYSLOA.BUGSRCJCSPQUORUM.MAR; (4) 
51 FEC! CF BF 79 MOVAL MSSG7,R1 ; Quorum disk read attributes error 
61 1 A BRB 11$ 
FCS CF OD 7AG 6 TSTL SL UOCE LON ; Did the file exist before? 
he 7A8 4 BEQLU ; Br if not 
— ‘ ff A 2 CALLS. HT CSPSTELL OPCOM Output i 
° ; Output message via opcom 
00000000" EF 2 ; : : eres 
FDAF CF 7F O78 a3 7$: PUSHAQ MSSG2 
01 FB 07B9 9 CALLS #1,CSPSTELL_OPCOM ; Output message via opcom 
saectedl 7 
> ww 43 9 BRB 10$ 
FRA7 CF D5 Q7C 4g 8$ TSTL CLUDCB_LBN : Did the file exist before? 
13 pte 4 BEQLU 9$ ; Br if not 
Fea) ef 01 pee GG CMPL CLUDCB_LBN,LOOKUP_LBN ; Do the LBN's match? 
13° O7CF 45 EQLU ; Br if they do 
FOCO CF O7>F 701 46 PUSHAQ MSSG3 
01 FB 0705 47 CALLS #1,CSPSTELL_OPCOM ; Output message via opcom 
00000000‘ EF tad 4s 
OOOOOAI9°EF 16 OQ7D 49 9$ JSB VALIDATE_FILE ; Validate the file contents 
4D 50 E€8 O7E 50 BLBS RO,13$ ; Br_ if quorum file valid 
50 oe 7E 51 TSTL :; 1/0 error? 
oF 1 7E 52 BEQLU 10% : Br if not 
;bYC0001 2144 BF 61 7E9 J CMP RO, #SS$_FORCEDERROR ; Block revectored 
7DvC0001 7 13 «=O7E 22 BEQLU 3; Rewrite the file 
51 FEA6 CF of 7F 53 MOVAL MSSG8,R1 ; Quorum file read error 
Pe cr He BRB 11$ 
apenas. i ig 7F7 2$ 108: JSB WRITE FILE ; Write a template quorum file 
2750 =«€C€ 7FD 5 BLBS $ : Br if success 
51 FEC3 CF ODE a 38 MOVAL MSSG9,R1 : Quorum file write error 
F878 CF «651~—C iO 60 118: CMPL R1,ERROR_MESSAGE ; Same error as last reported? 
gf 13 A 61 BEQLU) 14 ; Br if yes 
F871 CF 1 00 C 6¢ MOVL R1,ERROR_MESSAGE ; Save address of last error message 
F86B CF OA 91 11 6 CMPB #ERROR_TARESHOLD.ERROR_COUNT ; Should we report this one? 
22 13 18 64 BEQLU ; Br if not 
F865 CF 96 1 65 INCB ERROR_COUNT ; Increment error count 
61 OF 1¢ 96 PUSHAL 1) ; Push address of message descr 
00000000°¢r FB 6 CALLS #1,CSPSTELL_OPCOM ; Output message via opcom 
ae | $8 BRB 148 
FDA4 CF 7F 7 5 12$: PUSHAQ MSSG64 
ot FB 8 71 CALLS #1,CSPSTELL_OPCOM ; Output message via opcom 
848 CF 8 138: CLRB ERROR_COUNT ; Reset error count and... 
CF D4 7 CLAL ERROR_MESSAGE 3 ..-error pointer. 
OOOOOAEB'EF 16 A 74 14$: SB CLOSE_FILE ; Close the quorum file 
40 75 DASSGN_S CHAN = CHANNEL ; Deassign the quorum disk channel 
F831 gf 3 4 7 TSTB FEROR COUNT ; Have we completed the request? 
= 30 7 EQLU 5$ ; Br yes 
78 SETIMR_S DAYTIM = RESCHEDULE_TIMER,- ; Delay and try again 
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vourbon CSbSDUDKON - Disk quorum action routine g- 111382 8: Obi38 SYSLOA.BUGSRC JCSPQUORUM.MAR; A ad (4) 
38 7 ASTADR CSPSSRESUME 
} REQIDT = CSPSGL_ CURCTX 

00 FB 68 CALLS #0,CSPSSWAIT ; Wait for completion 
00000000 ' EF 
FED6 = 31 ; BRw 2s 
15$: SCMKRNL_S REQUEST_COMPLETE Complete the request 
168: CLRB ~THREAD_ACTIVE Clear thread active flag 


Restore registers 
Return success 
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8 178: OVL #SS$_NORMAL,RO * 


4 
: POPR #*MCR2,R3,R4,R5,RO,R7> 
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5 -SBTTL REQUEST_INIT = Request initialization 
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om 
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This routine acknowledges the request, gets the quorum disk LBN 
and name, and initializes the reschedule timer. 


CALLING SEQUENCE: 

SCMKRNL_S REQUEST_INIT 
INPUTS: 

NONE 
OUTPUT: 

RO = Status 


pon a, - Reauest is necessary (Quorum disk state is NOT_READY) 
- Request not necessary 
R1,R3 Destroyed 


EQUEST_INIT: 
-WORD 0 


CLRL RO ; Assume request is not necessary 
MOVL G*CLUSGL_CLUB,R3 Get CLUB address 


Get CLUDCB address 


woowovond 


ar: 
00000000°GF 00 


MMNMNMNN—] 22S 2 Sas SU OQOOOOOO OOO 0 


ViFUN=—OO DNOUESW (OC OONOAUEWN OO OONOuM 


53 0084 23 dO MOVL CLUBSL_CLUDCB(R3) ,R3 
01 +B CMPW =, #CLUDCB$M_QS_NOT_READY,- ; Is state NOT_READY? 
20 a3 A FLUDCBSY_STATE (RS) 
2 a4 BNEQU 1 ; Br if not 
i9 AB 0 ng BISW #CLUDCBSM_QF_CSPACK,=- 3; Ack the request 
22 A 8 A CLUDCBSW_FLAGS(R3) 
F7oS a dO 9 ry MOVL CLUDCBSL_QFLBN(RS),CLUDCB_LBN ; Get the LBN 
aa B 3¢ bse 326 MOVZWL G*CLUSGW_QDSKINTERVAL ,R1 ; Get quorum disk timeout value 
1 7A ; 327 EMUL R1,#-10000000,40,- ; Convert to seconds (Delta form) 
FF676980 8F 889 
00 SBE 
FSSA sf RF 8 RESCHEDULE TIMER 
50 01 00 O8¢ 9 MOVL  #SS$_NORMAC,RO ; Request is necessary 
04 08C 0 1$: RET 
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NAME = Get the quorum disk name 
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QUORUM MODULE 


4 344 
copy is in the CLUB. 
CALLING SEQUENCE: 


iz 
i 
6 : NONE 


Per 


OUTPUT: 


RO = Status 
R1-R7 Destroyed 
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ET_QDNAME : 
MOV 


PUPP PUI BE EEE 


NOW FW OOONOUS 


BDC 80358 SGETOVIW_S DEVNAM = QD_DESC 
soc «= 359 TMLST = QD } 
DC 360 -; ASTADR = CSPSSRESUME 
BDC 1 -: ASTPRM = CSPS$GL_CURC 
boc : 10SB = 10SB8 
BF BLBC 0.18 
aFB -; CALLS #0.CSPSSWAIT 
BFE 5 V2WL 1058,R 
BLBC RO, 18 
CMKRNL_S GET_QDNAME1 
MOVL “#1, RO 
BRB 
1$: CLRW  QD_DESCR 

9 2s: RSB 

¢ GET_QDNAME1: 

E MOVL  G*CLUSGL_CLUB.R6 
7 TSTB ‘ UBST_QDNAME (R6) 
7 BNEQ 
78 SUBWS #2, QD_DESCR,R7 
379 movc3 
0 MOVB = R7, CLUBST_QDNAME (R6) 
E JSB G*ENX$DISR_CHANGE 
vA 2 18 RET 


S-Sep= 1986 Oe:0e:58 


§ -SBTTL GET_QONAME = Get the quorum disk name 


C3 #CLUDCB$S_DISK_QUORUM, - 
G*CLUSGB_GD1SK>QD_NAME 


LOCC #*A/ /, #CLUDCBSS_DIS«_QUORUM,- 
SUBW3 = ROT ACLUDCBSS_DISK_QUORUM,Q0_DESCR ; Store name Length 
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This routine gets the full quorum disk name and makes sure that a 


; Get copy of quorum disk name 


; Locate end of name 


; Get full device name 


fx,- 


Br if error 

Wait for completion 
Get completion status 
Br if error 

Put name in CLUB 
Return success 


; Zero name size 


Get CLUB address 


ls name in CLUB already? 
Br if yes 
; Get adjusted name size 


R7,QD_NAME+1,CLUBST_QDNAME+1(R6) ; Put name in CLUB 


; Put name size in CLUB 
; Tell connection manager 


ici 


a! 
Tal 


vOs-001 OPEN 
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4 .SBTTL OPEN_FILE = Open the quorum file 


oe 
oa 


This routine ‘opens’ the quorum file and obtains its logical block 
number. It will first attempt to find any existing quorum file but 
if unoucceee ryt. it will create a new one. Note that the logical 

block number is ony returned if the file was not created. This is 


4! ; due to the fact that the statistics block is not returned on a create. 
38 ; CALLING SEQUENCE: 
36 ; JSB OPEN_FILE 
4 : INPUTS: 
39 : NONE 
400 ; 
¢ 1 ; OUTPUT: 
408 : RO = Status of file open 
405 : R1-R6 Destroyed 
4 
408 OPEN_FILE: 
409 
410 ; 
ai 3; First we initialize the FIB. 
56 F745 CF OE £13 : MOVA Fie k6 ; Get FIB pointer 
00 6F 99 2c 414 MOVCS #0,(SP),#O0,#FIBSK_LENGTH,(R6) =: Init FIB to all zeros 
00080501 8F 00 415 MOVL #F IBSM_WRITE!F IBSM_NOREAD!F IBSM_NOWRITE!F IBSM_WRITETHRU, - 
218 FIBSL_ACCTL(R6) 3; Access bits 
OA A6 4 8B 41 MOVW #FID C_MFD.F 1B$W_DID_NUM(R6) ; Directory is the MFD 
OC A6 8B 418 MOVW #F IDSC_MFD,FIBSé DID SEQ(R6) . 
0085 8F 80 419 MOVW #F IBSA EXTEND! F I16SM_ALCON!F I8SM_FILCON,- ; Extend control bits 
16 a8 420 FIBSW ExCTL (RO) 
18 A6 «OO d0 2 1 MOVL #cLuoF K_BLOCKS ,FIBSL_EXSZ(R6) ; Allocation size 
? § : Attempt to lookup/create the quorum file and access for read/write 
425° $010_S CHAN = CHANNEL,- 
4 § FUNC = #10$_ACCESS! 1OSM_ACCESS! 10SM_CREATE,- 
4 10SB = 10S8,- 
4 : ASTADR = CSP$$RESUME,- 
4 ASTPRM = CSP$GL_CURCTX,- 
430 Pp} = FIB_DESCR,- 
431 Pe = #QF DESCR,- 
4 § P = #ATTRIB_BLOCK 
1p 50 =—E9 4 BLGC 80.18 : Br if error 
oP FB 434 CALLS #0,CSPSSWAIT ; Wait for completion 
36 +48 gf 36 435 MOVZWL 10SB,R0 ; Get 1/0 completion status 
O0€ 50 4 6 BLBC = RO, 18 : Br if error 
438 ; Get the quorum file LBN. 


K QUOPUM MODULE 
= Open the quorum file 


$33 3 
44 MOVW 
441 MOVW 
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STATBLK*SBKSW_STLBNL,LOOKUP_LBN ; Get the Low-order LBN 
STATBLK+SBK$W_STLBNH,LOOKUP_LBN+2 ; Get the High-order LBN 


a 
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9C tte -SBTTL GET_LBN = Get the quorum file logical block number 
98 beg sos | 
9C 447 : This routine reads the quorum file attributes and gets the quorum 
4! tes 3 file logical block number. 
%¢ 4 p > CALLING SEQUENCE: 
¢ 4 : : JSB GET_LBN 
9C3 454 : INPUTS: 
9C $a? 3 
33 ca | — 
a3¢ 438 t OUTPUT: 
o3¢ 460 : RO = Status of file open 
09C 46¢ : R1 Destroyed 
geet 
09¢ 469 GET_LBN: 
09C 46 $Q10_S CHAN = CHANNEL ; Read the file attributes 
09C3 468 FUNC = #10$_ACCESS,- 
09C3 469 1088 =s =_—«10SB- 
09¢3 470 ASTADR = CSPS$$RESUME,- 
09c3 471 ASTPRM = CSP$GL_CURCTX,- 
09C3 47 Pi = FIB_DESCR,- 
09c3 47 P2 = #QF ~DESCR.- 
09C 474 P5 = #ATTRIB_BLOCK 
1D 50 «©E9 «O9F8 86475 BLBC RO,1$ ; Br if error : 
ieee 09 FB O9FB 476 CALLS  #0,CSPS$WAIT ; Wait for completion 
50 F673 CF 3C OAO 477 MOVZWL 10S8,R0 ; Get 1/0 completion status 
9 OA07 478 BLBC —-aRO,, 18 : Br if error 
AA ‘et : Get the quorum file LBN. 
F ODE cr 80 OAA 482 © MOVW § STATBLK*SBK$W_STLBNL.LOOKUP_LBN ; Get the Low-order LBN 
4h ‘of 80 me 483 MOVW STATBLK*+SBK$W_STLBNH,LOOKUP_LBN+2 ; Get the High-order LBN 


0S OAI8 484 18: RSB 
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re § -SBTTL VALIDATE_FILE = Validate the quorum file 
4 soe 
: : : This routine reads the quorum file and validates its contents. 
491 ; CALLING SEQUENCE: 
49 JSB VALIDATE_FILE 
494 
495 ; INPUTS: 
49 NONE 
498 
OUTPUT: 


RO = Status of validate 


If RO = SS$_NORMAL the file is valid. If RO = 0 the file is 
invalid. Otherwise RO contains an 1/0 status error. 


R1-R3,R6,R7 Destroyed 


= 
0 
oO 
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a 
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VALIDATE _FILE: 


: Queue a read request to the quorum file 


POPE 2 SS Ss Ss ss MODOC OOCOCOCOO 


WIN —-OOSNOVEWN "OOO NOU FW 


; 
; 
5 
5 
3 
5 
5 
3 
5 $Q10_S CHAN = CHANNEL ,- 
5 FUNC = #10$_READLBLK,- 
5 10S8 =] - 
5 ASTADR = CSPS$RESUME,- 
5 ASTPRM = CSPS$GL_CURCTX,- 
5 Pi = QF BUFFER,- 
5 Pe = #CCuQF $k BLOCKS*512,- 
5 i = LOOKUP_LEN 
5 BLBC RO,28 ; Br if error : 
5 CALLS #0,CSPSSWAIT : Wait for completion 
524 MOVZWL 10SB8,R0 ; Get 1/0 completion status 
525 BLBC RO, 2$ ; Br if error 
. $ ; Validate the data in the quorum file 
3 CLAL (SP) ; Assume file not valid 
0 MOVAL QF _BUFFER,R6 ; Get buffer pointer 
1 JSB CACCULATE_CHECKSUM ; Get the checksum 
¢ TSTL R7 ; Is checksum valid? 
: BNEQ 1$ ; Br not 
4 CMPC #CLUQF$S_IDENT,- ; Validate ID area 
5 CLUQF$T_TDENT(R6),- 
IDENT _STRING : , 
BNE QU $ ; Br if file invalid 
$ Pu #@CLUQFSK_VERSION,- 3; Is version correct? 
CLUQF $U_ERSION(R6) 
40 BNEQU 1 ; Br if mot | 
41 MOVZBL #SS$_NORMAL, (SP) ; File is valid 
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4 : MOVL (SP)+,RO ; Return status 
Hy 28 3 2s: RSB 
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This routine builds a template quorum file and writes it to the disk. 


>>>rr>p 


‘G9 0909 0D CO CDCDCD 


R 
r 
5 .SBTTL WRITE_FILE = Write the quorum file 
1 


S 
L 
ry 
4 “9 ; 
4 Ree: 
A 4 20 ; CALLING SEQUENCE: 
oh 4 3 ; JSB WRITE_FILE 
A 4 3 : INPUTS: 
Dass 36 i NONE 
DAB, 238 ; OUTPUT: 
DAB, se) : RO = Status of the write 
OA84 6¢ : R1-R7 Destroyed 
der 
OA84 565 WRITE_TILE: 
Ms 
pAae 288 : Build a template quorum file 
56 FOO CF DE OARS 570 * MOVAL QF _BUFFER RG ; Get bufter pointer 
00 6€ 00 .2C OA89 571 MOVCS #07(SP) : Zero buffer 
66 0400 8F OA8D O78 #CLUQE $k “BLOcKss512, (R6) 
OC 28 OA91 57 MOVC3 #CLUQF$S~ IDENT ; Store ident string 
roma Me aR oaret Mane 
63 02 60 OA97? 576 MOVW #CLUQFS$R_VERSION, (R3) 3 Store version number 
00000B53"EF 16 OQASA 577 JSB CALCULATE CHECK ; Get the checksum 
44 A6 57 00 OAAO 578 MOVL R7, CLUQF$C_CHECKSUM(R6) ; Store checksum 
48 A6 01 90 GAA, 379 MOVE #1, CLUQF $B" IGNORE (R6) : Set ignore flag 
OAAB 381 : Write the template quorum file. 
OAA8 388 , $010_S CHAN = CHANN 
OAAB 5 4 FUNC = #108 $ URITELBLK, - 
OAA : 6 ASTADR = CSPS$RESUM 
OAAB ; 7 ASTPRM 2 CSPSGL cuncfix. - 
OM 389 Pe : ac CUBE qBuocksssi2, - 
0c 50 £9 OADB 391 BLBC —_ RO, 18 E : Br if error 
90000000°Er FB OA 92 CALL> #0, CSPSSWAIT : Wait for completion 
50 F590 CF 3C OAE 593 MOVZWL 10SB,R0 : Get 1/0 completion status 
05 OAEA 594 1$: RSB 


; 
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a8 «SBTTL CLOSE_FILE = Close the quorum file 
| 
38 : This routine “'closes’’ the quorum file by issuing a Q10 with the 
? 9 ; IO$_DEACCESS function code. 
6 ; : CALLING SEQUENCE: 
6 4 : JSB CLOSE _FILE 
$ : + INPUTS: 
808 NONE 
$09 ; 
219 : OUTPUT: 
o1¢ : RO,R1 Destroyed 
613 ;- 
614 
oi? CLOSE_FILE: 
$19 $Q10_S CHAN = CHANNEL, ; Queue deaccess request 
618 FUNC = #10$_ DEACCESS,- - 
619 OSB = 10S8, 
620 ASTADR = CSPS$RESUME,- 
621 ASTPRM = CSPS$GL_CURCTX 
6 § BLBC RO,1$ ; Br if error 
6 CALLS #0,CSPS$WAIT ; Wait for completion 
624 1$ RSB 


OP 
Vv0é 
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i g § -SBTTL REQUEST_COMPLETE - Request completion 
1F 628 ;+4 
i ? § : This routine completes the request by updating the CLUDCB fields. 
IF 6 ? CALLING SEQUENCE: 
IF 6 § : SCMKRNL_S REQUEST_COMPLETE 
If 6 5 : INPUTS: 
IF 6 ? ; NONE 
F 639 : OUTPUT: 
OBIF 641: RO,R1 Destroyed 
Bie Beg i 
0B1F 644 REQUEST_COMPLETE: 
0000 Sait $2 wORD 0 
oo oe dO ee y gs MOVL G*CLUSGL_CLUB,RO ; Get CLUB address 
50 0084 CO DO O0B28 648 MOVL CLUBSL_CLUDCB(RO) ,RO ; Get CLUDCB address 
51 £544 CF 09 0B2D 649 MOVL CH 3; Get channel number 
51 C 0B32 650 SUBL3 Ri ,a@#CTLSGL_ CCBBASE ,R1 ; Form CCB address 
90000000" 7 3 3 
OB3A 651 SETIPL #IPLS_TIMER : Synchronize access to CLUDCB 
OC AO 61 DO 0B3D $36 MOVL CCBSL-UCB(R1) ,CLUDCB$L_UCB(RO) ; Store UCB address in CLUDCB 
Fage Ha dO yl 65 MOVE LOOKUP_LBN,CLUDCBSL_QFCBN(RO) =; Put LBN in CLUDCB 
10 AA OB47 654 BICW #CLUDCBSM_QF_CSPACK,=- ; Clear the in progress bit 
22 AO 0B49 655 CLUDCBSW_FLAGS (RO) 
02 B60 08648 636 MOVW #CLUDCBSA_QS_READY,- ; Set state to ready 
20 Ad 0B4D 45 CLUSCESu_ STATE (RO) 
OB4F 658 SETIPL ; Restore IPL 
04 0852 659 RET 
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is ~SBTTL CALCULATE_CHECKSUM = Calculate the quorum file checksum 
p++ 
4; This routine calulates the checksum of the corm block pointed to 
65 ; by R6. It includes the field CLUQFSL_CHECKSUM in the checksum 
$6 : calculation. 
> 668 > CALLING SEQUENCE: 
$76 : JSB CALCULATE_ CHECKSUM 
676 : INPUTS: 
5 ere : R6 = Pointer to the quorum block 
; 676 ; OUTPUT: 
3 678 : R7 = Quorum block checksum 
5 680 : R2,R3 Destroyed 
p83 e $ CALCULATE_CHECKSUM: 
52 12 pO 085 Sas MOVL #CLUQFSK_CHECK_LENGTH/4,R2 3; R2 = checksum Longword count 
53 56 DO 0856 686 MOVL R6,R3 ; Copy buffer address 
57 D4 0859 687 CLRL 3; Form checksum in R7 
57 83 CC 08568 eas 1$: MORL2 (R3)+,R7 3; Accumulate checksum 
FA 52 FS OBSE 689 SOBGTR R2,1$ ; Br if more 
05 0861 690 SB 
0862 691 
0B62 692 END 
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ATRSC_FPRO 
ATRSC_STATBLK 
ATRSC_UIC 
ATRSS_FPRO 
ATRSS_STATBLK 
ATRSS “UIC 
ATTR RIB B BLOCK 
CALCULATE CHECKSUM 
BSL_UCB™ 
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00000729 
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9 
OPEN FILE 
PRS_TPL 
QD_BESCR 
QD- aoe 


NAME 
i -BUFFER 
REQUEST COMPLETE 
STTINIT 
SCHEDOLE gl tnER 
SBKSW_STLBA 
su" ait2 BNL 


CREA 
FORC CEDERROR 


ETIMR 
EAD_ACTIVE 


$ 
h 
a FILE 


EQ 
ES 
Sok 
iH 
SS-NOR 
ai 
TSSCRERN 
YS 
YS 
Y$ 
YS 
HR 
i 

L 
RITE_FICE 
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i cen Macro 


1 
Oe R 01 
He OH 
at 
110 R 01 
04 
ae 
Sait 
SH) 
ko 
o000071 R 01 
ago0¢F R 01 
QO006F6 R 01 
a ; 
Set 
QOOOSFD R 01 
44h e$: R 01 
4 44 R 01 
Q00069A R 01 
00006C7 R 01 
00000945 R 01 
sani at 
Sat 
194 R 81 
059 R 1 
1F R 01 
90 R 4 
1¢ R 1 


44 
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! Psect synopsis ! 


bere wemeer renee ree nt 


PSECT name Allocation PSECT No. Attributes 

- ABS . 4 4444 ( 0.) 00 ¢ 9.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

. BLANK . 0 368 ( 2914.) 01 ¢ -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 

SABSS 000 ( 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
tence eaces se ees eee sew enon t 
; Performance indicators H 

Phase Page faults CPU Time Elapsed Time 

Initialization ; 0:00:00.29 0:00:01.19 

Command processing 8 :00. 0:00: 5-0 

Pass 1 45$ :00: 3 748.6 

Symbol table sort 0 :02. 09-08 

Pass 2 146 :00: $2 :00: 90 

Symbol table output 1§ :00:00. ° - :00.31 

Psect synopsis output 1 :00:00. : 3: at 

Cross-reference output 8 :00. 0:00:00.00 

Assembler run totals 77 0:27. 0:01:11.64 


The working set Limit was 1950 pages. 
95950 bytes (188 pages) of virtual memory were used to buffer the intermediate code. 
There were 100 pages of symbol table space allocated to hold 1706 non-local and 28 local symbols. 
699 source lines were read in Pass 1, producing 17 object records in Pass 2. 
pages of virtual memory were used to define 31 macros. 
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! Macro Library statistics ! 


geese eee ese noan wes ee naan ae } 


Macro Library name Macros defined 
_8255$0UA18: SVELOA 081 2CLUSTER ALO: 2 1 
_S255$DUA18: sve-08 LIB.MLB; 1 

$255$DUA18: (SYSLIBJSTARLET.MLB; 3 : 
TOTALS (all libraries) 


1869 GETS were required to define 28 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:CSPQUORUM/0BJ=0BJ$:CSPQUORUM MSRC$:CSPQUORUM/UPDATE = (BUGS: CSPQUORUM) +EXECML$/LIB+LIB$:CLUSTER/LIB 
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